home *** CD-ROM | disk | FTP | other *** search
/ Immoral Angel 1 / Immoral Angel 1.iso / mac / MSTR / PROGRAM / Shared.Cst / 00005.ls < prev    next >
Encoding:
Text File  |  1997-07-10  |  427 b   |  18 lines
  1. on checkTimeOut
  2.   global mousePosition, saverOnOff
  3.   put mouseH() & "," & mouseV() into mousePosition2
  4.   if mousePosition2 <> mousePosition then
  5.     set the timeOutPlay to TRUE
  6.     updateStage
  7.     put mousePosition2 into mousePosition
  8.   else
  9.     set the timeOutPlay to FALSE
  10.     if saverOnOff then
  11.       set the timeOutScript = "doTimeOut"
  12.     else
  13.       set the timeOutScript = EMPTY
  14.     end if
  15.     updateStage
  16.   end if
  17.   
  18. end